home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / FIND.DIR / 00024_Script_24 < prev    next >
Text File  |  1995-11-13  |  1KB  |  54 lines
  1. on doGoCode
  2.   global gBaseListFind, gBottomFind, gTopFind, gHilitedFind, gResList
  3.   global gGlossPalette
  4.   
  5.   go to the frame + 1
  6.   cursor 4
  7.   updateStage  
  8.   
  9.   set off = gHilitedFind + gTopFind - 1
  10.   
  11.   if gHilitedFind <= 0 or (off > count(gResList) and count(gResList) > 0) or off = 0 then 
  12.     set t = the ticks + 20
  13.     repeat while t > the ticks
  14.     end repeat
  15.     
  16.     cursor -1
  17.     go to the frame - 1
  18.     exit
  19.   end if
  20.   
  21.   if count(gResList) > 0 then
  22.     set goItem = getAt(gResList, off)
  23.   else
  24.     set goItem = item 2 of line off of field (gBaseListFind - 1)
  25.   end if
  26.   
  27.   
  28.   
  29.   if gBaseListFind = 2 then
  30.     if (char 1 of goItem = "P") and not voidP(gGlossPalette) then
  31.       tell gGlossPalette to lCloseGlossPalette
  32.     end if
  33.     
  34.     goGo(goItem, 1)
  35.     exit
  36.   else
  37.     if voidP(gGlossPalette) then 
  38.       createGlossPalette 
  39.     end if
  40.     
  41.     tell gGlossPalette to showTermCast(goItem)
  42.     tell gGlossPalette to lOpenGlossPalette
  43.     
  44.     cursor -1
  45.     go to the frame - 1
  46.     
  47.     exit  
  48.   end if
  49.   
  50.   cursor -1
  51.   go to the frame - 1
  52.   
  53. end doGoCode
  54.